home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / andere sprachen / oberonv4 / oberon-src / loader / testsystem.mod < prev    next >
Encoding:
Text File  |  1996-04-02  |  721 b   |  31 lines
  1. (* Test System Configuration by Ralf Degner *)
  2. (* written with AmigaObeon 3.2   29.03.1996 *)
  3.  
  4. MODULE TestSystem;
  5.  
  6. IMPORT Exec, a: Arguments;
  7.  
  8. VAR Str: ARRAY 8 OF CHAR;
  9.  
  10. BEGIN
  11.   a.GetArg(1, Str);
  12.   IF a.NumArgs()=1 THEN
  13.     CASE Str[0] OF
  14.       "C" : IF NOT(Exec.m68020 IN Exec.SysBase.attnFlags) THEN (* CPU *)
  15.               HALT(5)
  16.             END
  17.     | "F" : IF NOT(Exec.m68881 IN Exec.SysBase.attnFlags) THEN (* FPU *)
  18.               HALT(5)
  19.             END
  20.     | "M" : IF Exec.AvailMem(LONGSET{}) < 1258291 THEN (* Memory *)
  21.               HALT(5)
  22.             END
  23.     | "O" : IF Exec.SysBase.libNode.version < 36 THEN (* OS *)
  24.               HALT(5)
  25.             END
  26.     END;
  27.   ELSE
  28.     HALT(10);
  29.   END;
  30. END TestSystem.
  31.